;if ~show("L","rexxreqtools.library") THEN;DO;if ~addlib("rexxreqtools.library",0,-30,0) THEN;DO;EXIT(0);end;end;if ~show("L","rexxtricks.library") THEN;DO;if ~addlib("rexxtricks.library",5,-30,38) THEN;DO;EXIT(0);end;end;ICON="REXX:MultiConcept";fenster.title='MultiConcept Tooltype-Editor V1.0';fenster.gadgettext='_Ändern|_NEU|_Ende';fenster.pubscreen='Workbench';fenster.font='SCREEN';fenster.multiselect=FALSE;fenster.sort=TRUE;fenster.height=280;DO UNTIL tooltype.gadget=0;IF ~GETTOOLTYPES(ICON,'tooltypes') THEN;DO;EXIT(0);END;res=VIEWLIST('tooltypes','fenster','liste');SELECT;WHEN liste.gadget=0 THEN EXIT;WHEN liste.gadget=2 THEN CALL NEU;OTHERWISE;IF res=0 THEN ITERATE;DO i=1 TO liste.0;PARSE VAR liste.i tooltype_name "=" tooltype_value;ARG=tooltype_name;VAL=tooltype_value;END;CALL EDIT;END;END;EDIT:PROCEDURE EXPOSE ICON ARG VAL;NL='0A'x;IF ARG="EditTXT" THEN;DO;IF VAL="" THEN VAL="";GETVALUE=rtgetstring(VAL,' Sollen Texte angezeigt oder editiert werden'||NL||'"JA=editieren | NEIN=anzeigen'||NL||'','Tooltype Editor für Textbearbeitung','OK|DeAktivieren|Abbruch','rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF res=2 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,'');RETURN;END;IF GETVALUE~="" AND res=1 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,GETVALUE);RETURN;END;RETURN;END;IF ARG="DEF_PFAD" THEN;DO;IF VAL="" THEN VAL="";GETVALUE=rtgetstring(VAL,' Neuen Default-Pfad zum Entpacken eingeben ','Tooltype Editor für den Default-Pfad','OK|DeAktivieren|Abbruch','rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF res=2 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,'');RETURN;END;IF GETVALUE~="" AND res=1 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,GETVALUE);RETURN;END;RETURN;END;IF ARG="RAD" THEN;DO;IF VAL="" THEN VAL="";GETVALUE=rtgetstring(VAL,' Bitte Device-Name des virtuellen RAM eingeben '||NL||NL||'z.B.: SD0:','Tooltype Editor für das Virtuelle RAM','OK|DeAktivieren|Abbruch','rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF res=2 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,'');RETURN;END;IF GETVALUE~="" AND res=1 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,GETVALUE);RETURN;END;RETURN;END;IF ARG="FMS" THEN;DO;IF VAL="" THEN VAL="";GETVALUE=rtgetstring(VAL,' Bitte Device-Namen der virtuellen Disks eingeben '||NL||NL||'Es sind max. 3 Laufwerke erlaubt !!'||NL||NL||'z.B.: FF0: FF1: etc.','Tooltype Editor für virtuelle DISK-Laufwerke','OK|DeAktivieren|Abbruch','rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF res=2 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,'');RETURN;END;IF GETVALUE~="" AND res=1 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,GETVALUE);RETURN;END;RETURN;END;ELSE;DO;WAS=POS("ARG",ARG);IF WAS>0 THEN;DO;IF VAL="" THEN VAL="";GETVALUE=rtgetstring(VAL,' Neues Argument für den Tooltype '||NL||'"'ARG'"','Tooltype Editor','OK|DeAktivieren|Abbruch','rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF res=2 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,'');RETURN;END;IF GETVALUE~="" AND res=1 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,GETVALUE);RETURN;END;END;ELSE;DO;PENDE=LASTPOS("/",VAL)+1;If PENDE=1 THEN PENDE=LASTPOS(":",VAL)+1;If PENDE=1 THEN PENDE=LASTPOS("",VAL)+1;PFAD=DELSTR(VAL,PENDE);IF PFAD="" THEN PFAD="";FILE=SUBSTR(VAL,PENDE);IF FILE=" " THEN FILE="";GETVALUE=rtfilerequest(PFAD,FILE,'Bitte ein File oder Icon auswählen',,'rt_reqpos=reqpos_centerscr rtfi_height=210',res);IF res=0 THEN;DO;SETTOOLTYPEVALUE(ICON,ARG,'');RETURN;END;ELSE NEWVALUE=GETVALUE;END;SETTOOLTYPEVALUE(ICON,ARG,NEWVALUE);RETURN;NEU:PROCEDURE EXPOSE ICON;NL='0A'x;res=rtezrequest(''||NL||'Welche Art von Tooltype'||NL||'soll erzeugt werden?'||NL||'','_File|Ar_gument|_Abbruch','Neues Tooltype anfügen','rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext');IF res=0 THEN RETURN;IF res=1 THEN;DO;ARG=rtgetstring(,''||NL||' Namen des Tooltypes ohne Argument'||NL||'und "=" angeben'||NL||NL||'Der Name ist mit dem Dateityp identisch'||NL||'z.B.: "Guide"'||NL||'','Tooltype Editor',,'rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF ARG=""THEN RETURN;VALUE=rtfilerequest('RAM:',,'Bitte ein File auswählen',,'rt_reqpos=reqpos_centerscr rtfi_height=210',res);IF res=0 THEN RETURN;SETTOOLTYPEVALUE(ICON,ARG,VALUE);END;ELSE;DO;ARG=rtgetstring(,''||NL||' Neuen Tooltype ohne Argument'||NL||'und "=" angeben'||NL||NL||'z.B.: "xxxxARG"'||NL||'','Tooltype Editor',,'rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF ARG=""THEN RETURN;VALUE=rtgetstring(,'Neues Argument für den Tooltype'||NL||'"'ARG'"'||NL||NL||'z.B.: "Fontname=XEN Fontsize=11"'||NL||'','Tooltype Editor',,'rt_reqpos=reqpos_centerscr rtgs_flags=gsreqf_centertext rtgs_width=600',res);IF res=0 THEN RETURN;IF VALUE=""THEN RETURN;SETTOOLTYPEVALUE(ICON,ARG,VALUE);END;RETURN
